home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2002 #11 / Amiga Plus CD - 2002 - No. 11.iso / Tools / Development / PowerD / powerd / source / lib / library_lib.lha / Library / LibExpunge.d < prev    next >
Text File  |  2001-11-14  |  377b  |  19 lines
  1. OPT    NOEXE
  2.  
  3. MODULE    'powerd/library'
  4.  
  5. EPROC customExpungeLib(base:PTR TO LibGenBase)(LONG)
  6.  
  7. PROC libExpunge(base:PTR TO LibGenBase IN a6)(LONG)
  8.     DEF    rc=0
  9.   
  10.     IF base.library.OpenCnt
  11.         base.library.Flags|=LIBF_DELEXP
  12.         RETURN 0
  13.     ENDIF
  14.     customExpungeLib(base)
  15.     Remove(base)
  16.     rc:=base.segment
  17.     FreeMem(base-base.library.NegSize,base.library.NegSize+base.library.PosSize)
  18. ENDPROC rc
  19.